home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / xlib.lha / xlib / cdecl / const.mln < prev    next >
Text File  |  1990-06-01  |  480b  |  19 lines
  1.  
  2. ;Beginning compilation on /u/kranz/cdecl/const.scm
  3.  
  4. INPUT-CONST
  5. CONST-VALUE
  6. EMIT-CONSTS
  7. (VARIABLES
  8.   FREE (MEMQ FOR-EACH FORMAT STRING-APPEND WITH-OUTPUT-TO-FILE NO-MORE-COND-CLAUSES
  9. TOP-LEVEL-VALUE PROCEDURE? MAP APPLY GETPROP LENGTH ERROR PUTPROP)
  10.   EARLY-BOUND ()
  11.   DEFINED ()
  12.   LSET (INPUT-CONST CONST-VALUE EMIT-CONSTS)
  13.   SET ()
  14.   ERROR ()
  15.   INTEGRATED (NOT PAIR? ELSE CDR CAR = SYMBOL? CADR CDDR)
  16.   LOCAL ()
  17.   UNREFERENCED (INPUT-CONST EMIT-CONSTS))
  18. ; assembled 1860 bytes
  19.